home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / pleas / ole / visio / network / visconst.bas < prev    next >
Encoding:
BASIC Source File  |  1994-05-18  |  10.5 KB  |  349 lines
  1. '------------------------------------------------------------------------------------------------
  2. '------------------------------------------------------------------------------------------------
  3. '--  VISCONST.BAS - Visio global constant file. This file can be loaded into a code module.
  4. '--  Copyright (C) 1991-1993 Shapeware Corporation. All rights reserved.
  5. '--
  6. '--  The constant names consist of a lowercase prefix "vis" and fully spelled words all starting
  7. '--  with a capitalized initial (e.g., visSizeNormal). However, standard abbreviations are used
  8. '--  for the following words;
  9. '--
  10. '--  Horizontal is abbreviated as Horz
  11. '--  Vertical is abbreviated as Vert
  12. '--  Transform is abbreviated as XForm
  13. '--  Foreground is abbreviated as Fore
  14. '--  Background is abbreviated as Back
  15. '--
  16. '--  Some constants are commented out because they have
  17. '--  duplicates (e.g., visNone appears several places).
  18. '--
  19.  
  20. 'The application and object to create
  21. Global Const visApi = "visio.application"
  22.  
  23. 'The object ID's
  24. Global Const visApplication = 1
  25. Global Const visCell = 2
  26. Global Const visDocument = 10
  27. Global Const visDocuments = 11
  28. Global Const visMaster = 12
  29. Global Const visMasters = 13
  30. Global Const visPage = 14
  31. Global Const visPages = 15
  32. Global Const visShape = 16
  33. Global Const visShapes = 17
  34. Global Const visStyle = 18
  35. Global Const visStyles = 19
  36. Global Const visWindow = 20
  37. Global Const visWindows = 21
  38. Global Const visSelection = 22
  39. Global Const visConnect = 25
  40. Global Const visConnects = 26
  41.  
  42. 'Dump method parameter values
  43. Global Const visDumpType = 0
  44.  
  45. 'Select method parameter values
  46. Global Const visDeselect = &H1
  47. Global Const visSelect = &H2
  48. Global Const visSubSelect = &H3
  49. Global Const visDeselectAll = &H100
  50.  
  51. 'Units constants
  52. Global Const visNumber = &H20           'no units used
  53. Global Const visTypeUnits = &H30        'default text type units
  54. Global Const visPoints = &H32
  55. Global Const visPicas = &H33
  56. Global Const visDidots = &H35
  57. Global Const visCiceros = &H36
  58. Global Const visPageUnits = &H3F        'default
  59. Global Const visDrawingUnits = &H40     'default
  60. Global Const visInches = &H41
  61. Global Const visFeet = &H42
  62. Global Const visMiles = &H44
  63. Global Const visCentimeters = &H45
  64. Global Const visMillimeters = &H46
  65. Global Const visMeters = &H47
  66. Global Const visKilometers = &H48
  67. Global Const visYards = &H4B
  68. Global Const visAngleUnits = &H50       'default
  69. Global Const visDegrees = &H51          'decimal degrees
  70. Global Const visRadians = &H53
  71.  
  72. 'FromPart property values
  73. Global Const visConnectError = -1
  74. Global Const visNone = 0
  75. Global Const visLeftEdge = 1
  76. Global Const visCenterEdge = 2
  77. Global Const visRightEdge = 3
  78. Global Const visBottomEdge = 4
  79. Global Const visMiddleEdge = 5
  80. Global Const visTopEdge = 6
  81. Global Const visBeginX = 7
  82. Global Const visBeginY = 8
  83. Global Const visBegin = 9
  84. Global Const visEndX = 10
  85. Global Const visEndY = 11
  86. Global Const visEnd = 12
  87. Global Const visControlPoint = 100
  88.  
  89. 'ToPart property values
  90. 'Global Const visConnectError = -1             'see FromPart..
  91. 'Global Const visNone = 0               'see FromPart..
  92. Global Const visGuideX = 1
  93. Global Const visGuideY = 2
  94. Global Const visConnectionPoint = 100
  95.  
  96. 'Cell error property values
  97. Global Const visErrorSuccess = 0
  98. Global Const visErrorDivideByZero = 39
  99. Global Const visErrorValue = 47
  100. Global Const visErrorReference = 55
  101. Global Const visErrorName = 61
  102. Global Const visErrorNumber = 68
  103. Global Const visErrorNotAvailable = 74
  104.  
  105. 'AddGuide method guide types
  106. Global Const visPoint = 1
  107. Global Const visHorz = 2
  108. Global Const visVert = 3
  109.  
  110. 'Type property values - shapes
  111. Global Const visTypeStyle = 1
  112. Global Const vistypeGroup = 2
  113. Global Const visTypeShape = 3
  114. Global Const visTypeForeignObject = 4
  115. Global Const visTypeGuide = 5
  116.  
  117. 'Type property values - windows
  118. Global Const visDrawing = 1
  119. Global Const visStencil = 2
  120. Global Const visSheet = 3
  121. Global Const visIcon = 4
  122.  
  123. 'AlignName property values
  124. Global Const visLeft = 1
  125. Global Const visCenter = 2
  126. Global Const visRight = 3
  127.  
  128. 'IconSize property values
  129. Global Const visNormal = 1
  130. Global Const visTall = 2
  131. Global Const visWide = 3
  132. Global Const visDouble = 4
  133.  
  134. 'IconUpdate property values
  135. Global Const visAutomatic = &HFF
  136. Global Const visManual = 0
  137.  
  138. 'Text case
  139. Global Const visCaseNormal = 0
  140. Global Const visCaseAllCaps = 1
  141. Global Const visCaseInitialCaps = 2
  142.  
  143. 'Text position relative to shape
  144. Global Const visPosNormal = 0
  145. Global Const visPosSuper = 1
  146. Global Const visPosSub = 2
  147.  
  148. 'Text styles
  149. Global Const visBold = 1
  150. Global Const visItalic = 2
  151. Global Const visUnderLine = 4
  152. Global Const visSmallCaps = 8
  153.  
  154. 'The possible values for the HAlign cell
  155. Global Const visHorzLeft = 0
  156. Global Const visHorzCenter = 1
  157. Global Const visHorzRight = 2
  158. Global Const visHorzJustify = 3
  159. Global Const visHorzForce = 4
  160.  
  161. 'The possible values for the tab stop Align cell
  162. Global Const visTabStopLeft = 0
  163. Global Const visTabStopCenter = 1
  164. Global Const visTabStopRight = 2
  165. Global Const visTabStopDecimal = 3
  166. Global Const visTabStopComma = 4
  167.  
  168. 'The possible values for the VAlign cell
  169. Global Const visVertTop = 0
  170. Global Const visVertMiddle = 1
  171. Global Const visVertBottom = 2
  172.  
  173. 'The possible values for the TextBkgnd cell
  174. Global Const visTransparent = 0
  175.         'Opaque - see Visio's 24 color pallette list.
  176.  
  177. 'Visio's 24 color pallette
  178. Global Const visBlack = 0
  179. Global Const visWhite = 1
  180. Global Const visRed = 2
  181. Global Const visGreen = 3
  182. Global Const visBlue = 4
  183. Global Const visYellow = 5
  184. Global Const visMagenta = 6
  185. Global Const visCyan = 7
  186. Global Const visDarkRed = 8
  187. Global Const visDarkGreen = 9
  188. Global Const visDarkBlue = 10
  189. Global Const visDarkYellow = 11
  190. Global Const visPurple = 12
  191. Global Const visDarkCyan = 13
  192. Global Const visGray = 14
  193. Global Const visGray10 = 15
  194. Global Const visGray20 = 16
  195. Global Const visGray30 = 17
  196. Global Const visGray40 = 18
  197. Global Const visDarkGray = 19
  198. Global Const visGray50 = visDarkGray
  199. Global Const visGray60 = 20
  200. Global Const visGray70 = 21
  201. Global Const visGray80 = 22
  202. Global Const visGray90 = 23
  203.  
  204. 'Patterns
  205. 'Global Const visNone = 0
  206. Global Const visSolid = 1
  207. Global Const visWideUpDiagonal = 2
  208. Global Const visWideCross = 3
  209. Global Const visWideDiagonalCross = 4
  210. Global Const visWideDownDiagonal = 5
  211. Global Const visWideHorz = 6
  212. Global Const visWideVert = 7
  213. Global Const visBackDotsMini = 8
  214. Global Const visHalfAndHalf = 9
  215. Global Const visForeDotsMini = 10
  216. Global Const visForeDotsNarrow = 11
  217. Global Const visForeDotsWide = 12
  218. Global Const visThickHorz = 13
  219. Global Const visThickVertial = 14
  220. Global Const visThickDownDiagonal = 15
  221. Global Const visThickUpDiagonal = 16
  222. Global Const visThickDialogCross = 17
  223. Global Const visBackDotsWide = 18
  224. Global Const visThinHorz = 19
  225. Global Const visThinVert = 20
  226. Global Const visThinDownDiagonal = 21
  227. Global Const visThinUpDiagonal = 22
  228. Global Const visThinCross = 23
  229. Global Const visThinDiagonalCross = 24
  230.  
  231. '-- Values for the cells that control the page's size and scale
  232.  
  233. 'The possible values for the drawing size type
  234. Global Const visPrintSetup = 0
  235. Global Const visTight = 1
  236. Global Const visStandard = 2
  237. Global Const visCustom = 3
  238. Global Const visLogical = 4
  239.  
  240. 'The possible values the drawing scale type
  241. Global Const visNoScale = 0
  242. Global Const visArchitectural = 1
  243. Global Const visEngineering = 2
  244. Global Const visScaleCustom = 3
  245.  
  246. 'The possible values for the page's grid density
  247. Global Const visGridFine = 8
  248. Global Const visGridNormal = 4
  249. Global Const visGridCoarse = 2
  250.  
  251. 'The possible values for the page's subdivision on the ruler
  252. Global Const visRulerFine = 32
  253. Global Const visRulerNormal = 16
  254. Global Const visRulerCoarse = 8
  255.  
  256. 'Section IDs
  257. Global Const visSectionFirst = 0            'first logical section
  258. Global Const visSectionLastComponent = &HFA
  259. Global Const visSectionLast = &HFC          'last logical section
  260. Global Const visSectionText = &HFD
  261. Global Const visSectionForeign = &HFE
  262. Global Const visSectionNone = &HFF          'unspecified logical section
  263. Global Const visSectionObject = 1
  264. Global Const visSectionMember = 2
  265. Global Const visSectionCharacter = 3
  266. Global Const visSectionParagraph = 4
  267. Global Const visSectionTab = 5
  268. Global Const visSectionScratch = 6
  269. Global Const visSectionExport = 7
  270. Global Const visSectionTextField = 8
  271. Global Const visSectionControls = 9
  272. Global Const visSectionFirstComponent = 10
  273.  
  274. 'Row IDs
  275. Global Const visRowFirst = 0                'first logical row in any section
  276. Global Const visRowLast = -2                'last logical row in any section
  277. Global Const visRowNone = &HFF              'unspecified row
  278. Global Const visRowXFormOut = 1
  279. Global Const visRowLine = 2
  280. Global Const visRowFill = 3
  281. Global Const visRowXForm1D = 4
  282. Global Const visRowEvent = 5
  283. Global Const visRowGuide = 7
  284. Global Const visRowStyle = 8
  285. Global Const visRowForeign = 9
  286. Global Const visRowPage = 10
  287. Global Const visRowText = 11
  288. Global Const visRowTextXForm = 12
  289. Global Const visRowXFormIn = visRowXFormOut
  290. Global Const visRowAlign = 14
  291. Global Const visRowLock = 15
  292. Global Const visRowData123 = 16
  293. Global Const visRowMisc = 17
  294. Global Const visRowMember = 0
  295. Global Const visRowField = 0
  296. Global Const visRowCharacter = 0
  297. Global Const visRowParagraph = 0
  298. Global Const visRowTab = 0
  299. Global Const visRowScratch = 0
  300. Global Const visRowExport = 0
  301. Global Const visRowControl = 0
  302. Global Const visRowComponent = 0
  303. Global Const visRowVertex = 1
  304. Global Const visRowFormat = visRowControl
  305.  
  306. 'Tags for rows
  307. Global Const visTagBase = 130
  308. Global Const visTagTab0 = 136
  309. Global Const visTagComponent = 137
  310. Global Const visTagMoveTo = 138
  311. Global Const visTagLineTo = 139
  312. Global Const visTagArcTo = 140
  313. Global Const visTagEllipticalArcTo = 144
  314. Global Const visTagTab2 = 150
  315. Global Const visTagTab10 = 151
  316. Global Const visTagInvalid = &HFF
  317.  
  318. '-- Cell IDs
  319.  
  320. 'Cell IDs for vertex rows
  321. Global Const visX = 0
  322. Global Const visY = 1
  323. Global Const visBow = 2
  324. Global Const visEccentricityAngle = 4
  325. Global Const visAspectRatio = 5
  326. Global Const visControlX = 2
  327. Global Const visControlY = 3
  328.  
  329. 'The IDs for the cells in the Character section
  330. Global Const visCharacterFont = 0
  331. Global Const visCharacterColor = 1
  332. Global Const visCharacterStyle = 2
  333. Global Const visCharacterCase = 3
  334. Global Const visCharacterPos = 4
  335. Global Const visCharacterSize = 7
  336.  
  337. 'The IDs for the cells in the Paragraph section
  338. Global Const visIndentFirst = 0
  339. Global Const visIndentLeft = 1
  340. Global Const visIndentRight = 2
  341. Global Const visSpaceLine = 3
  342. Global Const visSpaceBefore = 4
  343. Global Const visSpaceAfter = 5
  344. Global Const visHorzAlign = 6
  345.  
  346.  
  347.  
  348.  
  349.